Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2024 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
      module constant_mod
        implicit none
#include "my_real.inc"
        my_real, parameter ::  INFINITY          = 1E20
        my_real, parameter ::  ZERO              = 0.
        my_real, parameter ::  ONE               = 1.
        my_real, parameter ::  TWO               = 2.
        my_real, parameter ::  THREE             = 3.
        my_real, parameter ::  FOUR              = 4.
        my_real, parameter ::  FIVE              = 5.
        my_real, parameter ::  SIX               = 6.
        my_real, parameter ::  SEVEN             = 7.
        my_real, parameter ::  EIGHT             = 8.
        my_real, parameter ::  NINE              = 9.
        my_real, parameter ::  TEN               = 10.
        my_real, parameter ::  ELEVEN            = 11.
        my_real, parameter ::  TWELVE            = 12.
        my_real, parameter ::  FOURTEEN          = 14.
        my_real, parameter ::  FIFTEEN           = 15.
        my_real, parameter ::  SIXTEEN           = 16.
        my_real, parameter ::  EIGHTEEN          = 18.
        my_real, parameter ::  TWENTY            = 20.
        my_real, parameter ::  TWENTY4           = 24.
        my_real, parameter ::  TWENTY5           = 25.
        my_real, parameter ::  TWENTY7           = 27.
        my_real, parameter ::  THIRTY            = 30.
        my_real, parameter ::  THIRTY2           = 32.
        my_real, parameter ::  THIRTY6           = 36.
        my_real, parameter ::  FOURTY            = 40.
        my_real, parameter ::  FOURTY5           = 45.
        my_real, parameter ::  FOURTY8           = 48.
        my_real, parameter ::  FIFTY             = 50.
        my_real, parameter ::  FIFTY4            = 54.
        my_real, parameter ::  SIXTY4            = 64.
        my_real, parameter ::  EIGHTY            = 80.
        my_real, parameter ::  NINTY             = 90.
        my_real, parameter ::  EIGHTY16          = 96.
        my_real, parameter ::  EIGHTY19          = 99.
        my_real, parameter ::  HUNDRED           = 100.
        my_real, parameter ::  HUNDRED28         = 128.
        my_real, parameter ::  HUNDRED50         = 150.
        my_real, parameter ::  HUNDRED80         = 180.
        my_real, parameter ::  THREE100          = 300.
        my_real, parameter ::  TWOHUNDRED25      = 225.
        my_real, parameter ::  TWOHUNDRED95      = 295.
        my_real, parameter ::  TWOHUNDRED98      = 298.
        my_real, parameter ::  TWOHUNDRED93      = 293.
        my_real, parameter ::  THREEHUNDRED24    = 324.
        my_real, parameter ::  FIVEHUNDRED12     = 512.
        my_real, parameter ::  TWO1000           = 2000.
        my_real, parameter ::  THREE1000         = 3000.
        my_real, parameter ::  EP02  = HUNDRED
        my_real, parameter ::  EP03  = EP02 * TEN
        my_real, parameter ::  EP04  = EP03 * TEN
        my_real, parameter ::  EP05  = EP04 * TEN
        my_real, parameter ::  EP06  = EP05 * TEN
        my_real, parameter ::  EP07  = EP06 * TEN
        my_real, parameter ::  EP08  = EP07 * TEN
        my_real, parameter ::  EP09  = EP08 * TEN
        my_real, parameter ::  EP10  = EP09 * TEN
        my_real, parameter ::  EP11  = EP10 * TEN
        my_real, parameter ::  EP12  = EP11 * TEN
        my_real, parameter ::  EP13  = EP12 * TEN
        my_real, parameter ::  EP14  = EP13 * TEN
        my_real, parameter ::  EP15  = EP14 * TEN
        my_real, parameter ::  EP16  = EP15 * TEN
        my_real, parameter ::  EP17  = EP16 * TEN
        my_real, parameter ::  EP18  = EP17 * TEN
        my_real, parameter ::  EP19  = EP18 * TEN
        my_real, parameter ::  EP20  = EP19 * TEN
        my_real, parameter ::  EP29  = EP20 * EP09
        my_real, parameter ::  EP30  = EP20 * EP10
        my_real, parameter ::  EP31  = EP30 * TEN
        my_real, parameter ::  EP35  = EP30 * EP05
        my_real, parameter ::  EP36  = EP30 * EP06
        my_real, parameter ::  EP37  = EP30 * EP07
        my_real, parameter ::  EM01 = ONE / TEN
        my_real, parameter ::  EM02 = ONE / EP02
        my_real, parameter ::  EM03 = ONE / EP03
        my_real, parameter ::  EM04 = ONE / EP04
        my_real, parameter ::  EM05 = ONE / EP05
        my_real, parameter ::  EM06 = ONE / EP06
        my_real, parameter ::  EM07 = ONE / EP07
        my_real, parameter ::  EM08 = ONE / EP08
        my_real, parameter ::  EM09 = ONE / EP09
        my_real, parameter ::  EM10 = ONE / EP10
        my_real, parameter ::  EM11 = ONE / EP11
        my_real, parameter ::  EM12 = ONE / EP12
        my_real, parameter ::  EM13 = ONE / EP13
        my_real, parameter ::  EM14 = ONE / EP14
        my_real, parameter ::  EM15 = ONE / EP15
        my_real, parameter ::  EM16 = ONE / EP16
        my_real, parameter ::  EM17 = ONE / EP17
        my_real, parameter ::  EM18 = ONE / EP18
        my_real, parameter ::  EM19 = ONE / EP19
        my_real, parameter ::  EM20 = ONE / EP20
        my_real, parameter ::  EM30 = ONE / EP30
        my_real, parameter ::  EM35 = ONE / EP35
        my_real, parameter ::  ZEP1      = EM01
        my_real, parameter ::  ZEP2      = TWO   / TEN
        my_real, parameter ::  ZEP3      = THREE  / TEN
        my_real, parameter ::  ZEP4      = FOUR / TEN
        my_real, parameter ::  ZEP5      = FIVE   / TEN
        my_real, parameter ::  ZEP6      = ONE - ZEP4
        my_real, parameter ::  ZEP7      = ONE - ZEP3
        my_real, parameter ::  ZEP8      = ONE - ZEP2
        my_real, parameter ::  ZEP9      = ONE - ZEP1
        my_real, parameter ::  ZEP01     =        EM02
        my_real, parameter ::  ZEP02     = TWO   / EP02
        my_real, parameter ::  ZEP03     = THREE  / EP02
        my_real, parameter ::  ZEP04     = FOUR / EP02
        my_real, parameter ::  ZEP05     = FIVE   / EP02
        my_real, parameter ::  ZEP06     = ZEP1 - ZEP04
        my_real, parameter ::  ZEP07     = ZEP1 - ZEP03
        my_real, parameter ::  ZEP08     = ZEP1 - ZEP02
        my_real, parameter ::  ZEP09     = ZEP1 - ZEP01
        my_real, parameter ::  TWOEM3   = TWO   / EP03
        my_real, parameter ::  THREEEM3  = THREE  / EP03
        my_real, parameter ::  FOUREM3 = FOUR / EP03
        my_real, parameter ::  FIVEEM3   = FIVE   / EP03
        my_real, parameter ::  SIXEM3    = ZEP01 - FOUREM3
        my_real, parameter ::  SEVENEM3   = ZEP01 - THREEEM3
        my_real, parameter ::  EIGHTEM3   = ZEP01 - TWOEM3
        my_real, parameter ::  NINEEM3   = ZEP01 - EM03
        my_real, parameter ::  TWOEM4   = TWO   / EP04
        my_real, parameter ::  THREEEM4  = THREE  / EP04
        my_real, parameter ::  FOUREM4 = FOUR / EP04
        my_real, parameter ::  FIVEEM4   = FIVE   / EP04
        my_real, parameter ::  SIXEM4    = EM03 - FOUREM4
        my_real, parameter ::  SEVENEM4   = EM03 - THREEEM4
        my_real, parameter ::  EIGHTEM4   = EM03 - TWOEM4
        my_real, parameter ::  NINEEM4   = EM03 - EM04
        my_real, parameter ::  TWOEM5   = TWO   / EP05
        my_real, parameter ::  THREEEM5  = THREE  / EP05
        my_real, parameter ::  FOUREM5 = FOUR / EP05
        my_real, parameter ::  FIVEEM5   = FIVE   / EP05
        my_real, parameter ::  SIXEM5    = EM04 - FOUREM5
        my_real, parameter ::  SEVENEM5   = EM04 - THREEEM5
        my_real, parameter ::  EIGHTEM5   = EM04 - TWOEM5
        my_real, parameter ::  NINEEM5   = EM04 - EM05
        my_real, parameter ::  TWOEM6   = TWO   / EP06
        my_real, parameter ::  THREEEM6  = THREE  / EP06
        my_real, parameter ::  FOUREM6 = FOUR / EP06
        my_real, parameter ::  FIVEEM6   = FIVE   / EP06
        my_real, parameter ::  SIXEM6    = EM05 - FOUREM6
        my_real, parameter ::  SEVENEM6   = EM05 - THREEEM6
        my_real, parameter ::  EIGHTEM6   = EM05 - TWOEM6
        my_real, parameter ::  NINEEM6   = EM05 - EM06
        my_real, parameter ::  TWOEP30   = TWO  *EP30
        my_real, parameter ::  THREEEP30  = THREE *EP30
        my_real, parameter ::  FOUREP30 = FOUR*EP30
        my_real, parameter ::  ZEP9EP30   = NINE  *EP29
        my_real, parameter ::  ONEP1EP30   = ELEVEN  * EP29
        my_real, parameter ::  HALF    = ONE/TWO
        my_real, parameter ::  THIRD     = ONE/THREE
        my_real, parameter ::  FOURTH     = ONE/FOUR
        my_real, parameter ::  ONE_FIFTH    = ONE/FIVE
        my_real, parameter ::  ONE_OVER_6     = ONE/SIX
        my_real, parameter ::  ONE_OVER_8    = ONE/EIGHT
        my_real, parameter ::  ONE_OVER_9    = ONE/NINE
        my_real, parameter ::  ONE_OVER_12   = ONE/TWELVE
        my_real, parameter ::  ONE_OVER_16   = ONE/SIXTEEN
        my_real, parameter ::  ONE_OVER_64     = ONE/SIXTY4
        my_real, parameter ::  ONE_OVER_512    = ONE/FIVEHUNDRED12
        my_real, parameter ::  TWO_THIRD    = TWO/THREE
        my_real, parameter ::  THREE_HALF     = THREE/TWO
        my_real, parameter ::  THREE_OVER_4    = THREE/FOUR
        my_real, parameter ::  TRHEE_OVER_14 = THREE/FOURTEEN
        my_real, parameter ::  TSEIZE    = THREE/SIXTEEN
        my_real, parameter ::  FOUR_OVER_3    = FOUR/THREE
        my_real, parameter ::  FOUR_OVER_5     = FOUR/FIVE
        my_real, parameter ::  QNEUF     = FOUR/NINE
        my_real, parameter ::  FIVE_OVER_3    = FIVE/THREE
        my_real, parameter ::  FIVE_OVER_4   = FIVE/FOUR
        my_real, parameter ::  FIVE_OVER_6      = FIVE/SIX
        my_real, parameter ::  SIX_OVER_5    = SIX/FIVE
        my_real, parameter ::  SEVEN_HALF    = SEVEN/TWO
        my_real, parameter ::  SEVEN_OVER_5     = SEVEN/FIVE
        my_real, parameter ::  SEVEN_OVER_9    = SEVEN/NINE
        my_real, parameter ::  NINE_OVER_2  = NINE/TWO
        my_real, parameter ::  NSEIZE    = NINE/SIXTEEN
        my_real, parameter ::  NINE_OVER_20    = NINE/TWENTY
        my_real, parameter ::  ZEP11     = ZEP1 + ZEP01
        my_real, parameter ::  ZEP12     = ZEP1 + ZEP02
        my_real, parameter ::  ZEP13     = ZEP1 + ZEP03
        my_real, parameter ::  ZEP14     = ZEP1 + ZEP04
        my_real, parameter ::  ZEP15     = ZEP1 + ZEP05
        my_real, parameter ::  ZEP16     = ZEP1 + ZEP06
        my_real, parameter ::  ZEP17     = ZEP1 + ZEP07
        my_real, parameter ::  ZEP18     = ZEP1 + ZEP08
        my_real, parameter ::  ZEP19     = ZEP1 + ZEP09
        my_real, parameter ::  ZEP21     = ZEP2  + ZEP01
        my_real, parameter ::  ZEP23     = ZEP2  + ZEP03
        my_real, parameter ::  ZEP25     = ZEP2  + ZEP05
        my_real, parameter ::  ZEP26     = ZEP2  + ZEP06
        my_real, parameter ::  ZEP213    = ZEP21 + THREEEM3
        my_real, parameter ::  ZEP29     = ZEP2  + ZEP09
        my_real, parameter ::  ZEP33     = ZEP3  + ZEP03
        my_real, parameter ::  ZEP34     = ZEP3  + ZEP04
        my_real, parameter ::  ZEP35     = ZEP3  + ZEP05
        my_real, parameter ::  ZEP37     = ZEP3  + ZEP07
        my_real, parameter ::  ZEP38     = ZEP3  + ZEP08
        my_real, parameter ::  ZEP333    = ZEP33 + THREEEM3
        my_real, parameter ::  ZEP373    = ZEP37 + THREEEM3
        my_real, parameter ::  ZEP41     = ZEP4  + ZEP01
        my_real, parameter ::  ZEP4187   = ZEP41 + EIGHTEM3 + SEVENEM4
        my_real, parameter ::  ZEP43     = ZEP4  + ZEP03
        my_real, parameter ::  ZEP45     = ZEP4  + ZEP05
        my_real, parameter ::  ZEP46     = ZEP4  + ZEP06
        my_real, parameter ::  ZEP47     = ZEP4  + ZEP07
        my_real, parameter ::  ZEP499    = ZEP4  + ZEP09 + NINEEM3
        my_real, parameter ::  ZEP475     = ZEP4  + ZEP07 + FIVEEM3
        my_real, parameter ::  ZEP62     = ONE   - ZEP38
        my_real, parameter ::  ZEP65     = ONE   - ZEP35
        my_real, parameter ::  ZEP66     = ONE   - ZEP34
        my_real, parameter ::  ZEP67     = ONE   - ZEP33
        my_real, parameter ::  ZEP71     = ONE   - ZEP29
        my_real, parameter ::  ZEP74     = ONE   - ZEP26
        my_real, parameter ::  ZEP707    = ONE   - ZEP3 + SEVENEM3
        my_real, parameter ::  ZEP81     = ONE   - ZEP19
        my_real, parameter ::  ZEP82     = ONE   - ZEP18
        my_real, parameter ::  ZEP84     = ONE   - ZEP16
        my_real, parameter ::  ZEP85     = ONE   - ZEP15
        my_real, parameter ::  ZEP87     = ONE   - ZEP13
        my_real, parameter ::  ZEP89     = ONE   - ZEP11
        my_real, parameter ::  ZEP92     = ONE   - ZEP08
        my_real, parameter ::  ZEP93     = ONE   - ZEP07
        my_real, parameter ::  ZEP94     = ONE   - ZEP06
        my_real, parameter ::  ZEP95     = ONE   - ZEP05
        my_real, parameter ::  ZEP96     = ONE   - ZEP04
        my_real, parameter ::  ZEP97     = ONE   - ZEP03
        my_real, parameter ::  ZEP98     = ONE   - ZEP02
        my_real, parameter ::  ZEP99     = ONE   - ZEP01
        my_real, parameter ::  ZEP995    = ONE   - FIVEEM3
        my_real, parameter ::  ZEP997    = ONE   - THREEEM3
        my_real, parameter ::  ZEP999    = ONE   - EM03
        my_real, parameter ::  ZEP9999   = ONE   - EM04
        my_real, parameter ::  ZEP99999  = ONE   - EM05
        my_real, parameter ::  ZEP931    = ZEP93  + EM03
        my_real, parameter ::  ZEP015    = ZEP15 / TEN
        my_real, parameter ::  ZEP015625 = ONE / SIXTY4
        my_real, parameter ::  ZEP025    = ONE / FOURTY
        my_real, parameter ::  ZEP037    = ZEP03 + SEVENEM3
        my_real, parameter ::  ZEP072169 = ZEP07 + TWOEM3 + EM04 + SIXEM5 + NINEEM6
        my_real, parameter ::  ZEP075    = THREE / FOURTY
        my_real, parameter ::  ONEP01    = ONE + ZEP01
        my_real, parameter ::  ONEP001   = ONE + EM03
        my_real, parameter ::  ONEP0001  = ONE + EM04
        my_real, parameter ::  ONEP00001 = ONE + EM05
        my_real, parameter ::  ONEP02  = ONE + ZEP02
        my_real, parameter ::  ONEP03  = ONE + ZEP03
        my_real, parameter ::  ONEP04  = ONE + ZEP04
        my_real, parameter ::  ONEP05  = ONE + ZEP05
        my_real, parameter ::  ONEP06  = ONE + ZEP06
        my_real, parameter ::  ONEP08  = ONE + ZEP08
        my_real, parameter ::  ONEP09  = ONE + ZEP09
        my_real, parameter ::  ONEP1   = ONE    + ZEP1
        my_real, parameter ::  ONEP11  = ONEP1  + ZEP01
        my_real, parameter ::  ONEP12  = ONEP1  + ZEP02
        my_real, parameter ::  ONEP13  = ONEP1  + ZEP03
        my_real, parameter ::  ONEP14  = ONEP1  + ZEP04
        my_real, parameter ::  ONEP15  = ONEP1  + ZEP05
        my_real, parameter ::  ONEP16  = ONEP1  + ZEP06
        my_real, parameter ::  ONEP17  = ONEP1  + ZEP07
        my_real, parameter ::  ONEP18  = ONEP1  + ZEP08
        my_real, parameter ::  ONEP19  = ONEP1  + ZEP09
        my_real, parameter ::  ONEP136 = ONEP13  + SIXEM3
        my_real, parameter ::  ONEP138 = ONEP13  + EIGHTEM3
        my_real, parameter ::  ONEP2   = ONE + ZEP2
        my_real, parameter ::  ONEP21  = ONEP2  + ZEP01
        my_real, parameter ::  ONEP23  = ONEP2  + ZEP03
        my_real, parameter ::  ONEP24  = ONEP2  + ZEP04
        my_real, parameter ::  ONEP25  = FIVE / FOUR
        my_real, parameter ::  ONEP26  = ONEP2  + ZEP06
        my_real, parameter ::  ONEP27  = ONEP2  + ZEP07
        my_real, parameter ::  ONEP28  = ONEP2  + ZEP08
        my_real, parameter ::  ONEP251 = ONEP25  + EM03
        my_real, parameter ::  ONEP252 = ONEP25  + TWOEM3
        my_real, parameter ::  ONEP3   = ONE + ZEP3
        my_real, parameter ::  ONEP31  = ONEP3  + ZEP01
        my_real, parameter ::  ONEP32  = ONEP3  + ZEP02
        my_real, parameter ::  ONEP33  = ONEP3  + ZEP03
        my_real, parameter ::  ONEP34  = ONEP3  + ZEP04
        my_real, parameter ::  ONEP35  = ONEP3  + ZEP05
        my_real, parameter ::  ONEP36  = ONEP3  + ZEP06
        my_real, parameter ::  ONEP37  = ONEP3  + ZEP07
        my_real, parameter ::  ONEP38  = ONEP3  + ZEP08
        my_real, parameter ::  ONEP39  = ONEP3  + ZEP09
        my_real, parameter ::  ONEP333 = ONEP33  + THREEEM3
        my_real, parameter ::  ONEP3348= ONEP33  + FOUREM3 + EIGHTEM4
        my_real, parameter ::  ONEP369 = ONEP36  + NINEEM3
        my_real, parameter ::  ONEP4   = ONE + ZEP4
        my_real, parameter ::  ONEP41  = ONEP4  + ZEP01
        my_real, parameter ::  ONEP42  = ONEP4  + ZEP02
        my_real, parameter ::  ONEP44  = ONEP4  + ZEP04
        my_real, parameter ::  ONEP45  = ONEP4  + ZEP05
        my_real, parameter ::  ONEP46  = ONEP4  + ZEP06
        my_real, parameter ::  ONEP48  = ONEP4  + ZEP08
        my_real, parameter ::  ONEP49  = ONEP4  + ZEP09
        my_real, parameter ::  ONEP414 = ONEP41 + FOUREM3
        my_real, parameter ::  ONEP484 = ONEP48 + FOUREM3
        my_real, parameter ::  ONEP5   = THREE_HALF
        my_real, parameter ::  ONEP51  = ONEP5 + ZEP01
        my_real, parameter ::  ONEP52  = ONEP5 + ZEP02
        my_real, parameter ::  ONEP57  = ONEP5 + ZEP07
        my_real, parameter ::  ONEP59  = ONEP5 + ZEP09
        my_real, parameter ::  ONEP6   = ONE + ZEP6
        my_real, parameter ::  ONEP62  = ONEP6 + ZEP02
        my_real, parameter ::  ONEP65  = ONEP6 + ZEP05
        my_real, parameter ::  ONEP66  = ONEP6 + ZEP06
        my_real, parameter ::  ONEP67  = ONEP6 + ZEP07
        my_real, parameter ::  ONEP68  = ONEP6 + ZEP08
        my_real, parameter ::  ONEP7   = ONE + ZEP7
        my_real, parameter ::  ONEP72  = ONEP7 + ZEP02
        my_real, parameter ::  ONEP73  = ONEP7 + ZEP03
        my_real, parameter ::  ONEP75  = ONEP7 + ZEP05
        my_real, parameter ::  ONEP78  = ONEP7 + ZEP08
        my_real, parameter ::  ONEP732 = ONEP73 + TWOEM3
        my_real, parameter ::  ONEP8   = ONE + ZEP8
        my_real, parameter ::  ONEP82  = ONEP8 + ZEP02
        my_real, parameter ::  ONEP84  = ONEP8 + ZEP04
        my_real, parameter ::  ONEP88  = ONEP8 + ZEP08
        my_real, parameter ::  ONEP833  = ONEP8 + ZEP03 + THREEEM3
        my_real, parameter ::  ONEP8688 = ONEP8 + ZEP06 + EIGHTEM3 + EIGHTEM4
        my_real, parameter ::  ONEP9   = ONE + ZEP9
        my_real, parameter ::  ONEP92  = ONEP9 + ZEP02
        my_real, parameter ::  ONEP96  = ONEP9 + ZEP06
        my_real, parameter ::  ONEP98  = ONEP9 + ZEP08
        my_real, parameter ::  TWOP03 = TWO + ZEP03
        my_real, parameter ::  TWOP05 = TWO + ZEP05
        my_real, parameter ::  TWOP06 = TWO + ZEP06
        my_real, parameter ::  TWOP07 = TWO + ZEP07
        my_real, parameter ::  TWOP08 = TWO + ZEP08
        my_real, parameter ::  TWOP1  = TWO + ZEP1
        my_real, parameter ::  TWOP2  = TWO + ZEP2
        my_real, parameter ::  TWOP30 = TWO + ZEP3
        my_real, parameter ::  TWOP4  = TWO + ZEP4
        my_real, parameter ::  TWOP5  = FIVE / TWO
        my_real, parameter ::  TWOP60 = TWO + ZEP6
        my_real, parameter ::  TWOP8  = TWO + ZEP8
        my_real, parameter ::  TWOP11 = TWOP1 + ZEP01
        my_real, parameter ::  TWOP12 = TWOP1 + ZEP02
        my_real, parameter ::  TWOP13 = TWOP1 + ZEP03
        my_real, parameter ::  TWOP16 = TWOP1 + ZEP06
        my_real, parameter ::  TWOP19 = TWOP1 + ZEP09
        my_real, parameter ::  TWOP23 = TWOP2 + ZEP03
        my_real, parameter ::  TWOP24 = TWOP2 + ZEP04
        my_real, parameter ::  TWOP25 = TWOP2 + ZEP05
        my_real, parameter ::  TWOP33 = TWOP30 + ZEP03
        my_real, parameter ::  TWOP38 = TWOP30 + ZEP08
        my_real, parameter ::  TWOP45 = TWOP4 + ZEP05
        my_real, parameter ::  TWOP47 = TWOP4 + ZEP07
        my_real, parameter ::  TWOP52 = TWOP5 + ZEP02
        my_real, parameter ::  TWOP83 = TWOP8 + ZEP03
        my_real, parameter ::  TWOP84 = TWOP8 + ZEP04
        my_real, parameter ::  TWOP85 = TWOP8 + ZEP05
        my_real, parameter ::  TWOP185 = TWOP1 + ZEP08 + FIVEEM3
        my_real, parameter ::  TWOP261 = TWOP2 + ZEP06 + EM03
        my_real, parameter ::  TWOP645 = TWOP60 + ZEP04 + FIVEEM3
        my_real, parameter ::  THREEP02  = THREE + ZEP02
        my_real, parameter ::  THREEP06  = THREE + ZEP06
        my_real, parameter ::  THREEP14  = THREE + ZEP14
        my_real, parameter ::  THREEP15  = THREE + ZEP15
        my_real, parameter ::  THREEP25  = THREE + ZEP2 + ZEP05
        my_real, parameter ::  THREEP27  = THREE + ZEP2 + ZEP07
        my_real, parameter ::  THREEP44  = THREE + ZEP4 + ZEP04
        my_real, parameter ::  THREEP46  = THREE + ZEP4 + ZEP06
        my_real, parameter ::  THREEP52  = THREE + ZEP5 + ZEP02
        my_real, parameter ::  THREEP72  = THREE + ZEP7 + ZEP02
        my_real, parameter ::  THREEP76  = THREE + ZEP7 + ZEP06
        my_real, parameter ::  THREEP8   = THREE + ZEP8
        my_real, parameter ::  THREEP94  = THREE + ZEP9 + ZEP04
        my_real, parameter ::  THREEP266 = THREE + ZEP2 + ZEP06 + SIXEM3
        my_real, parameter ::  THREEP464 = THREE + ZEP4 + ZEP06 + FOUREM3
        my_real, parameter ::  THREEP4641= THREEP464 + EM04
        my_real, parameter ::  FOURP186 = FOUR + ZEP1 + ZEP08 + SIXEM3
        my_real, parameter ::  FOURP40  = FOUR + ZEP4
        my_real, parameter ::  FOURP76  = FOUR + ZEP7 + ZEP06
        my_real, parameter ::  FIVEP5  = FIVE + ZEP5
        my_real, parameter ::  FIVEP56 = FIVE + ZEP5 + ZEP06
        my_real, parameter ::  FIVEP76 = FIVE + ZEP7 + ZEP06
        my_real, parameter ::  SIP2832 = SIX + ZEP2 + ZEP08 + THREEEM3 + TWOEM4
        my_real, parameter ::  NINEP24  = NINE + ZEP2 + ZEP04
        my_real, parameter ::  NINEP38  = NINE + ZEP3 + ZEP08
        my_real, parameter ::  NINEP793 = NINE + ZEP7 + ZEP09 + THREEEM3
        my_real, parameter ::  ELEVENP5     = ELEVEN     + ZEP5
        my_real, parameter ::  ONZEP225   = ELEVEN  + ZEP2 + ZEP02+FIVEEM3
        my_real, parameter ::  TWELVEP6    = TWELVE    + ZEP6
        my_real, parameter ::  FOURTEENP2 = FOURTEEN + ZEP2
        my_real, parameter ::  SIXTEENP5    = SIXTEEN    + ZEP5
        my_real, parameter ::  O88P9844   = 88. + ZEP9 + ZEP08 + FOUREM3 + FOUREM4
        my_real, parameter ::  EIGHTP314EM5 = 8314. * EM08
        my_real, parameter ::  ONEP2EP30 = ONEP2 * EP30
        my_real, parameter ::  ZEP999EP31 = ZEP999 * EP31
        my_real, parameter ::  ZEP54     = ONE   - ZEP46
        my_real, parameter ::  ONEP001EM32  = 1001. * EM35
        my_real, parameter ::  NINEP637EM5 = 9637. * EM08
        my_real, parameter ::  ONEP3EM5     = ONEP3  * EM05
        my_real, parameter ::  ZEP426667 = HUNDRED28 / THREE100
        my_real, parameter ::  ZEP222    = TEN / FOURTY5
        my_real, parameter ::  ZEP00666666667 = TWO / THREE100
        my_real, parameter ::  ZEP01666666667 = FIVE / THREE100
        my_real, parameter ::  ZEP444    = HUNDRED / TWOHUNDRED25
        my_real, parameter ::  ONEP222    = ONE + ZEP222
        my_real, parameter ::  ONEP8333   = ONE + TWENTY5 / THIRTY
        my_real, parameter ::  TWOP444  = TWO + ZEP444
        my_real, parameter ::  TWOP6666666667= EIGHT / THREE
        my_real, parameter ::  TWOP6667 = TWOP6666666667
        my_real, parameter ::  FIVEP333 = SIXTEEN / THREE
        my_real, parameter ::  ZEP1381966= ZEP13 + EIGHTEM3 + EM04 + NINEEM5 + SIXEM6 + SIX  *EM07
        my_real, parameter ::  ZEP5854102= ZEP5 + ZEP08 + FIVEEM3 + FOUREM4 + EM05 + TWO * EM07
        my_real, parameter ::  R_IGC    = 8.314472
        my_real, parameter ::  STEFBOLTZ= 5.6704 / EP08
        my_real, parameter ::  SQR2    = SQRT(TWO)
        my_real, parameter ::  SQR3    = SQRT(THREE)
        my_real, parameter ::  SQR5    = SQRT(FIVE)
        my_real, parameter ::  SQR6    = SQRT(SIX)
        my_real, parameter ::  SQR7    = SQRT(SEVEN)
        my_real, parameter ::  SQR3_2  = SQRT(THREE_HALF)
        my_real, parameter ::  SQR4_3  = TWO * SQRT(THIRD)
        my_real, parameter ::  SQR16_3 = TWO * SQR4_3
        my_real, parameter ::  PI      = ATAN2(ZERO,-ONE)
        my_real, parameter ::  INVPI   = ONE / PI
        my_real, parameter ::  EM3       = EM03
        my_real, parameter ::  EM4       = EM04
        my_real, parameter ::  EM5       = EM05
        my_real, parameter ::  EM6       = EM06
        my_real, parameter ::  EM7       = EM07
        my_real, parameter ::  EM8       = EM08
        my_real, parameter ::  EM9       = EM09
        my_real, parameter ::  EP9       = EP09
        my_real, parameter ::  ZEP80     = ZEP8
        my_real, parameter ::  ZEP90     = ZEP9
        my_real, parameter ::  UNP20     = ONEP2
        my_real, parameter ::  UNP30     = ONEP3
        my_real, parameter ::  UNP70     = ONEP7
        my_real, parameter ::  UNP90     = ONEP9
        my_real, parameter ::  UNEM3     = EM03
        my_real, parameter ::  UNEM4     = EM04
        my_real, parameter ::  UNEM5     = EM05
        my_real, parameter ::  UNEM6     = EM06
        my_real, parameter ::  TWOEM2    = ZEP02
        my_real, parameter ::  FIVEEM2   = ZEP05
        my_real, parameter ::  NINEEM2   = ZEP09
      end module constant_mod
